* epg.el (epg-error): Set `error-message' property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3c83e7e564656ad76f7613375e0186514bc2e27..cd7dd97315b4942fe10f4d47c4209a30d6f427ab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2012-12-21  Daiki Ueno  <ueno@gnu.org>
 
        * epg.el (epg--start): Print GPG_AGENT_INFO in the debug buffer.
+       (epg-error): Set `error-message' property.
 
 2012-12-21  Chong Yidong  <cyd@gnu.org>
 

diff --git a/lisp/epg.el b/lisp/epg.el
index ea97ddd747c802fc7f779771dc2f0fa48405e9c9..833a68d6e7eba33baaa14175fade94f3438c0469 100644 (file)
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -161,6 +161,7 @@
 (defvar epg-prompt-alist nil)
 
 (put 'epg-error 'error-conditions '(epg-error error))
+(put 'epg-error 'error-message "GPG error")
 
 (defun epg-make-data-from-file (file)
   "Make a data object from FILE."